home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD003b.dsk / ONE.SIX.SIDED.DIE.bas < prev    next >
BASIC Source File  |  2003-06-12  |  552b  |  12 lines
  1. 1  POKE 770,162: POKE 771,6: POKE 772,138: POKE 773,9: POKE 774,176: POKE 775,141: POKE 776,190: POKE 777,6: POKE 778,173
  2. 2  POKE 779,0: POKE 780,192: POKE 781,48: POKE 782,5: POKE 783,202: POKE 784,240: POKE 785,240: POKE 786,208: POKE 787,240
  3. 3  POKE 788,134: POKE 789,8: POKE 790,142: POKE 791,16: POKE 792,192: POKE 793,96:
  4. 10  HOME 
  5. 15  PRINT  TAB( 15)"COMPUTER DICE"
  6. 20  VTAB 14: PRINT "DIE ROLL >>>>>>>>>>>>- -<<<<<<<<<<<<"
  7. 30  POKE 34,17
  8. 50  HOME 
  9. 55  CALL 770
  10. 65  VTAB 20
  11. 70  GOSUB 100: GOTO 50
  12. 100  INPUT "HIT RETURN TO CONTINUE.";X$: RETURN